home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Models.dir / 00027.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  1.2 KB  |  49 lines
  1. on mouseEnter
  2.   cursor([cast "curs", cast "mask"])
  3. end
  4.  
  5. on mouseLeave
  6.   cursor(-1)
  7. end
  8.  
  9. on mouseUp
  10.   global listaItems
  11.   cursor(-1)
  12.   set itemsDeEstaPagina to []
  13.   repeat with x = 1 to 30
  14.     if the castNum of sprite x <> 0 then
  15.       if char 1 of the name of cast the castNum of sprite x = "@" then
  16.         append(itemsDeEstaPagina, the name of cast the castNum of sprite x)
  17.       end if
  18.     end if
  19.   end repeat
  20.   repeat with x = 1 to count(itemsDeEstaPagina)
  21.     set yaEsta to 0
  22.     repeat with y = 1 to count(listaItems)
  23.       if getAt(itemsDeEstaPagina, x) = getAt(listaItems, y) then
  24.         set yaEsta to 1
  25.         exit repeat
  26.       end if
  27.     end repeat
  28.     if not yaEsta then
  29.       append(listaItems, getAt(itemsDeEstaPagina, x))
  30.       repeat with x = 1 to 3
  31.         set the visible of sprite 120 to 1
  32.         updateStage()
  33.         startTimer()
  34.         repeat while the timer < 10
  35.         end repeat
  36.         set the visible of sprite 120 to 0
  37.         updateStage()
  38.         startTimer()
  39.         repeat while the timer < 10
  40.         end repeat
  41.       end repeat
  42.     end if
  43.   end repeat
  44.   startTimer()
  45.   repeat while the timer < 20
  46.   end repeat
  47.   cursor([cast "curs", cast "mask"])
  48. end
  49.